10 REM =SUPERGRAPHICS INFO =========C64 20 REM GRAPHICS SYSTEM BY A.MITTELMEYER 30 REM 40 REM FUER COMMODORE C64 50 REM ================================ 60 SYS57812"SUPERGRAPHICS.MC",8,0:POKE780,0 70 POKE782,191:POKE781,254:SYS65493 80 GOTO5380 90 PRINTCHR$(147):SYS52259,56320,56320,9216,1 100 PRINT"WIR BEFINDEN UNS JETZT IM TEXTMODUS" 110 PRINT:PRINT"DER WECHSEL VOM TEXTMODUS IN DEN" 120 PRINT"GRAFIKMODUS UND WIEDER ZURUECK" 130 PRINT"VOLLZIEHT SICH MIT FOLGENDEN BEFEHLEN" 140 PRINT:PRINT"GRAFIK EIN: SYS51090" 150 PRINT"GRAFIK AUS: SYS51115" 160 PRINT:PRINT"DIESES WOLLEN WIR UNS EINMAL ANSEHEN.":PRINT 170 PRINT"NACH DRUECKEN EINER TASTE KOMMEN SIE IN" 180 PRINT"DEN GRAFIKMODUS, NACH EINEM WEITEREN" 190 PRINT"TASTENDRUCK WIEDER IN DEN TEXTMODUS." 200 GOSUB2300:SYS51090 210 GOSUB2300:SYS51115 220 PRINTCHR$(147) 230 PRINT"VOR DEM ERSTEN EINSCHALTEN DER GRAFIK" 240 PRINT"SOLLTE DIE FARBE VOREINGESTELLT" 250 PRINT"UND DER GRAFIK-BILDSCHIRM GELOESCHT" 260 PRINT"WERDEN.":PRINT 270 PRINT"DAS EINSTELLEN DER FARBE FUER DEN" 280 PRINT"GESAMTEN BILDSCHIRM BEWIRKT:" 290 PRINT"SYS50906,VF,HF":PRINT 300 PRINT"VF IST VORDERGRUNDFARBE" 310 PRINT"HF IST HINTERGRUNDFARBE":PRINT 320 PRINT"WIE BEREITS VORHER, GEHEN WIR NACH" 330 PRINT"TASTENDRUCK WIEDER IN DEN GRAFIK-MODUS." 340 PRINT"IM UNTERSCHIED ZU VORHER HABEN WIR ABER" 350 PRINT"MIT SYS50906,1,0 DIE VORDERGRUNDFARBE" 360 PRINT"WEISS UND DIE HINTERGRUNDFARBE SCHWARZ" 370 PRINT"EINGESTELLT." 380 GOSUB2300:SYS50906,1,0:SYS51090 390 GOSUB2300:SYS51115 400 PRINTCHR$(147):PRINT"WENN DER BILDSCHIRM NOCH ETWAS WIRR" 410 PRINT"AUSSAH, SO LIEGT ES DARAN, DASS ER" 420 PRINT"NOCH NICHT GELOESCHT WAR." 430 PRINT:PRINT"GRAFIK-BILDSCHIRM LOESCHEN: SYS50941":PRINT 440 PRINT"DIE VOLLSTAENDIGE BEFEHLSFOLGE FUER" 450 PRINT"EINSCHALTEN EINES LEEREN BILSCHIRMS" 460 PRINT"UMFASST:" 470 PRINT:PRINT"FARBEINSTELLUNG":PRINT"BILDCHIRMLOESCHEN":PRINT"GRAFIK-EIN" 480 PRINT:PRINT"ETWA: SYS50906,1,0:SYS50941:SYS51090" 490 GOSUB2270:SYS50906,1,0:SYS50941:SYS51090 500 GOSUB2280:SYS51115:RETURN 510 GOSUB2260:SYS50088,8,8,"WIR BEFINDEN UNS IM GRAFIKMODUS" 520 SYS50088,8,24,"AUCH HIER IST TEXT MOEGLICH, WIE ZU" 530 SYS50088,8,32,"ZU SEHEN IST." 540 SYS50088,8,48,"DIE BEFEHLE LAUTEN:" 550 SYS50088,24,64,"SYS50088,X,Y,"+CHR$(34)+"TEXT"+CHR$(34) 560 SYS50088,24,72,"SYS50107,"+CHR$(34)+"TEXT"+CHR$(34) 570 SYS50088,8,88,"ETWA:" 580 SYS50088,24,104,"SYS50088,80,144,"+CHR$(34)+"TEXT1"+CHR$(34) 590 SYS50088,24,112,"SYS50107,"+CHR$(34)+" TEXT2"+CHR$(34) 600 GOSUB2280:SYS50088,80,144,"TEXT1":SYS50107," TEXT2" 610 GOSUB2280:SYS50941 620 SYS50088,0,8,"BEI DER TEXTAUSGABE FINDET KEIN ZEILEN-" 630 SYS50088,0,16,"UMBRUCH STATT. ER MUSS DURCH DIE ANGABE" 640 SYS50088,0,24,"NEUER KOORDINATEN VORGENOMMEN WERDEN." 650 SYS50088,0,40,"SIND DIE KOORDINATEN DURCH ACHT TEILBAR," 660 SYS50088,0,48,"SO IST DIE AUSGABE BESONDERS SCHNELL.":GOSUB2280 670 FORI=0TO7:SYS50088,40+I,64+I*10,"AUSGABETEST":NEXT 680 SYS50088,0,152,"HIER WURDEN DIE X-KOORDINATEN UM EINS" 690 SYS50088,0,160,"UND DIE Y-KOORDINATEN UM ZEHN ERHOEHT." 700 GOSUB2280:SYS51115:RETURN 710 GOSUB2260:SYS50774,2,2:SYS50088,40,8,"SCHRIFTGROESSE":SYS50774,1,1 720 SYS50088,0,32,"IM GRAFIKMODUS LAESST SICH DIE BUCH-" 730 SYS50088,0,40,"STABENGROESSE VERAENDERN." 740 SYS50088,0,56,"DER BEFEHL DAZU LAUTET: SYS50774,VX,VY" 750 SYS50088,0,72,"VX IST VERGROESSERUNG IN X-RICHTUNG" 760 SYS50088,0,80,"VY IST VERGROESSERUNG IN Y-RICHTUNG" 770 SYS50088,0,96,"DAZU EINIGE BEISPIELE" 780 GOSUB2280:SYS50941:SYS50774,1,25 790 SYS50088,0,0,"A":SYS50774,1,1 800 GOSUB2280:SYS50941:SYS50774,40,1 810 SYS50088,0,0,"A":SYS50774,1,1 820 GOSUB2280:SYS50941:SYS50774,40,25 830 SYS50088,0,0,"A":SYS50774,1,1 840 GOSUB2280:SYS50941 850 SYS50088,0,0,"DAS WAR ETWAS STARK UEBERTRIEBEN." 860 SYS50088,0,8,"DOPPELT HOHE UND BREITE BUCHSTABEN" 870 SYS50088,0,16,"SIND FUER PLAKATIVE UEBERSCHRIFTEN" 880 SYS50088,0,24,"ABER GEEIGNET." 890 SYS50774,2,1:SYS50088,0,48,"DOPPELT BREIT" 900 SYS50774,1,2:SYS50088,0,64,"DOPPELT HOCH" 910 SYS50774,2,2:SYS50088,0,88,"DOPPELT HOCH+BREIT":SYS50774,1,1 920 SYS50088,0,112,"DIE NORMALGROESSE WIRD DEFINIERT DURCH:" 930 SYS50088,0,128,"SYS50774,1,1" 940 SYS50088,0,144,"NUR IN NORMALGROESE GIBT ES DIE" 950 SYS50088,0,152,"SCHNELLE TEXTAUSGABE. VERGROESSERUNGEN" 960 SYS50088,0,160,"SIND NUR GANZZAHLIG MOEGLICH.":GOSUB2280:SYS51115:RETURN 970 GOSUB2260:SYS50088,240,0,"" 980 FORI=3TO0STEP-1:SYS50761,I,I 990 SYS50107," SCHRIFT-AUSRICHTUNG ":NEXT 1000 GOSUB2280 1010 SYS50941:SYS50761,3,3:SYS50088,312,0,"WENN SIE DEN BILDSCHIRM" 1020 SYS50088,304,0,"GERNE IM HOCHFORMAT" 1030 SYS50088,296,0,"HAETTEN, IST DIESES" 1040 SYS50088,288,0,"KEIN PROBLEM." 1050 SYS50088,8,8,"WEITER MIT TASTE":GOSUB2300 1060 SYS50761,0,0:SYS50941 1070 SYS50088,0,0,"FUER DIE BESCHRIFTUNG VON DIAGRAMMEN" 1080 SYS50088,0,8,"IST GEDREHTE SCHRIFT RECHT NUETZLICH." 1090 SYS50088,0,24,"DER BEFEHL LAUTET: SYS50761,RI,DR" 1100 SYS50088,0,40,"RI IST DIE RICHTUNG DER SCHRIFT" 1110 SYS50088,0,48,"DR IST DIE DREHUNG DER BUCHSTABEN" 1120 SYS50088,0,64,"BEIDE GROESSEN KOENNEN WERTE VON" 1130 SYS50088,0,72,"0 BIS 3 ANNEHMEN." 1140 SYS 50088,0,96,"PROBIEREN SIE ES EINFACH AUS.":GOSUB2280:RI=0:DR=0 1150 SYS50941:SYS50088,8,160,"RICHTUNG?" 1160 SYS50088,8,168,"DREHUNG?" 1170 SYS50088,8,184,"ABBRUCH MIT LEERTASTE" 1180 POKE49634,3 1190 POKE49863,1:SYS50088,88,160," " 1200 POKE49634,0:GOSUB2300:IFA$=" "THEN1340 1210 SYS50774,2,2 1220 POKE49863,0:SYS50761,RI,DR:SYS50088,160,96," ":SYS50761,0,0 1230 SYS50774,1,1 1240 RI=ASC(A$)AND3:A$=CHR$(RI+48) 1250 SYS50088,88,160,A$:POKE49634,3 1260 POKE49863,1:SYS50088,88,168," " 1270 POKE49634,0:GOSUB2300:IFA$=" "THEN1340 1280 DR=ASC(A$)AND3:A$=CHR$(DR+48) 1290 POKE49863,0:SYS50088,88,168,A$ 1300 SYS50774,2,2:SYS50761,RI,DR 1310 SYS50088,160,96,"TEXT" 1320 SYS50761,0,0:SYS50774,1,1 1330 GOTO1180 1340 POKE49863,0 1350 SYS50941:SYS50088,0,0,"WIE SIE GESEHEN HABEN, LAESST SICH AUCH" 1360 SYS50088,0,8,"DIE SCHRIFT-AUSRICHTUNG MIT DER" 1370 SYS50088,0,16,"VERGROESSERUNG KOMBINIEREN." 1380 GOSUB2280:SYS51115:RETURN 1390 GOSUB2260:SYS50774,160,100:SYS49264,160,0:SYS50774,2,2 1400 FORI=0TO3 1410 POKE49634,I:SYS50088,48,8+16*I,"SCHRIFTPROBE":NEXT 1420 SYS50774,1,1:POKE49634,0 1430 SYS50088,0,120,"JEDESMAL ERSCHEINT DIESELBE SCHRIFT." 1440 SYS50088,0,128,"ZWEIMAL IST SIE VOLLSTAENDIG SICHTBAR," 1450 SYS50088,0,136,"ZWEIMAL NUR TEILWEISE." 1460 SYS50088,0,152,"DIESES LIEGT AM TEXTATTRIBUT." 1470 GOSUB2280:SYS50941 1480 SYS50088,0,0,"DAS TEXTATTRIBUT KANN WERTE" 1490 SYS50088,0,8,"VON 0 BIS 3 ANNEHMEN." 1500 SYS50088,0,24,"EINGESTELLT WIRD ES MIT: POKE49634,TA" 1510 SYS50088,0,40,"TA=0: ZEICHENVORDERGRUND -> VORDERGRUND" 1520 SYS50088,0,48," ZEICHENHINTERGRUND -> HINTERGRUND" 1530 SYS50088,0,64,"TA=1: ZEICHENVORDERGRUND -> VORDERGRUND" 1540 SYS50088,0,80,"TA=2: ZEICHENVORDERGRUND -> HINTERGRUND" 1550 SYS50088,0,96 ,"TA=3: ZEICHENVORDERGRUND TAUSCHT" 1560 SYS50088,0,104," VORDERGRUND MIT HINTERGRUND" 1570 SYS50088,0,128,"WEITERE MOEGLICHKEITEN BIETET DER" 1580 SYS50088,0,136,"REVERSE ZEICHENSATZ. (SIEHE ZEICHENSATZ)" 1590 GOSUB2280:SYS50941 1600 SYS49415,160,8,120,48:SYS49415,160,8,200,48 1610 SYS49415,160,88,120,48:SYS49415,160,88,200,48 1620 SYS50524,160,48:POKE49863,2 1630 SYS50088,0,104,"[212]EXTATTRIBUT 3 EIGNET SICH GUT ALS" 1640 SYS50088,0,112,"[195]URSOR, DA NOCHMALIGES [211]CHREIBEN DAS" 1650 SYS50088,0,120,"VORHER [199]ESCHRIEBENE AUFHEBT." 1660 SYS50088,0,136,"[212]EXTATTRIBUT 2 EIGNET SICH BESONDERS" 1670 SYS50088,0,144,"ZUM [193]NPINSELN, DA DAS [199]ESCHRIEBENE" 1680 SYS50088,0,152,"NUR AUF DEM [214]ORDERGRUND SICHTBAR WIRD." 1690 SYS50088,0,160,"[194]EWEGEN SIE MIT DEN [195]URSORTASTEN DEN" 1700 SYS50088,0,168,"[208]INSEL DOCH EINMAL UEBER DEN [194]ILDSCHIRM.":POKE49863,0 1710 SYS50088,8,184,"ABBRUCH MIT LEERTASTE" 1720 X=0:Y=0 1730 POKE49634,3:SYS50088,X,Y,"[209]" 1740 GOSUB2300:SYS50088,X,Y,"[209]":IFA$=" "THEN1810 1750 POKE49634,2:SYS50088,X,Y,"[191]" 1760 IFA$=""THENX=X+8 1770 IFA$="[157]"THENX=X-8 1780 IFA$=""THENY=Y+8 1790 IFA$="[145]"THENY=Y-8 1800 X=ABS(X):Y=ABS(Y)AND255:GOTO1730 1810 POKE49634,0:SYS51115:RETURN 1820 GOSUB2260:SYS50774,80,80:SYS49264,124,8 1830 SYS50774,4,4:FORJ=0TO2:POKE49605,J 1840 FORX=16TO308STEP16:SYS49264,X,16*J+16:NEXT:NEXT 1850 SYS50894,1:POKE49605,3:SYS50774,1,1 1860 FORX=16TO308STEP16:SYS49264,X,64:NEXT:POKE49605,1 1870 SYS50088,0,104,"PUNKTE WERDEN AUSGEGEBEN DURCH:" 1880 SYS50088,112,120,"SYS49264,X,Y" 1890 SYS50088,0,136,"ALLES IN DER OBEREN BILDSCHIRMHAELFTE" 1900 SYS50088,0,144,"SIND PUNKTE." 1910 GOSUB2280:SYS50941:POKE49863,2 1920 SYS50088,0,0,"[208]UNKTE KOENNEN MIT [211][217][211]50774,[214][216],[214][217] VER-" 1930 SYS50088,0,8,"VERGROESSERT WERDEN UND DADURCH [204]INIEN-" 1940 SYS50088,0,16,"UND [198]LAECHENCHARAKTER ANNEHMEN." 1950 SYS50088,0,32,"[196]IE [196]ARSTELLUNG RICHTET SICH NACH DEM" 1960 SYS50088,0,40,"[208]UNKTATTRIBUT: [208][207][203][197]49605,[208][193]" 1970 SYS50088,0,56,"[208][193]=0: [208]UNKT LOESCHEN" 1980 SYS50088,0,64,"[208][193]=1: [208]UNKT SETZEN" 1990 SYS50088,0,72,"[208][193]=2: [208]UNKT INVERTIEREN" 2000 SYS50088,0,80,"[208][193]=3: [208]INSELMUSTER AUSGEBEN" 2010 SYS50088,0,96,"[196]REI [205]OEGLICHKEITEN GIBT ES, EIN [208]INSEL-" 2020 SYS50088,0,104,"MUSTER ZU ERZEUGEN." 2030 SYS50088,0,120,"- [208]OKEN IN [193]DRESSEN 49635 BIS 49642" 2040 SYS50088,0,128,"- [211][217][211]50894,[194]ILDSCHIRMCODE EINES [218]EICHENS" 2050 SYS50088,0,136,"- VORANGEGANGENE [218]EICHENAUSGABE" 2060 SYS50088,0,152,"[196]IE [208]INSELAUSGABE WIRD VOM [212]EXTATTRIBUT" 2070 SYS50088,0,160,"[208][207][203][197]49634,[212][193] BESTIMMT.":POKE49863,0 2080 GOSUB2280:SYS51115:RETURN 2090 GOSUB2260:FORX=0TO320STEP20:SYS49415,160,100,X,0:NEXT 2100 POKE49863,2:SYS50088,0,112,"[204]INIEN ENTSTEHEN DURCH [193]NEINANDERREIHEN" 2110 SYS50088,0,120,"VON [208]UNKTEN. [196]AMIT DIESES SCHNELL VOR" 2120 SYS50088,0,128,"SICH GEHT, GIBT ES DIE [210]OUTINE:" 2130 SYS50088,64,144,"[211][217][211]49415,[216][193],[217][193],[216][197],[217][197]" 2140 SYS50088,0,160,"[193]NZUGEBEN SIND DIE [203]OORDINATEN DES" 2150 SYS50088,0,168,"[193]NFANGS- UND [197]NDPUNKTES." 2160 GOSUB2280:SYS50941:POKE49863,2 2170 SYS50088,0,0,"[215]ENN SICH EINE [198]IGUR AUS AUFEINANDER" 2180 SYS50088,0,8,"FOLGENDEN [204]INIEN ZUSAMMENSETZT UND DABEI" 2190 SYS50088,0,16,"DAS [211]ETZATTRIBUT 2 FUER [208]IXELINVER-" 2200 SYS50088,0,24,"TIERUNG [214]ERWENDUNG FINDET, WUERDEN DIE" 2210 SYS50088,0,32,"[193]NSCHLUSSPUNKTE WIEDER GELOESCHT WERDEN." 2220 SYS50088,0,48,"[198]UER DIESEN [198]ALL GIBT ES EINE [204]INIEN-" 2225 SYS50088,0,56,"FUNKTION, WOBEI DER [193]NFANGSPUNKT NICHT" 2230 SYS50088,0,64,"MIT AUSGEGEBEN WIRD:" 2240 SYS50088,104,80,"[211][217][211]51454,[216]1,[217]1,[216]2,[217]2" 2250 GOSUB2280:SYS51115:RETURN 2260 SYS50906,1,0:SYS50941:SYS51090:RETURN 2270 PRINT:PRINT"WEITER MIT TASTE":GOTO2300 2280 POKE49863,0:SYS50088,8,184,"WEITER MIT TASTE" 2290 GOSUB2300:SYS50088,8,184," ":RETURN 2300 GETA$:IFA$=""THEN2300 2310 RETURN 2320 GOSUB2260:SYS51470,120,8,200,88 2330 SYS51710,160,48,39:POKE49863,2 2340 SYS50088,0,104,"[198]IGUREN KOENNEN DURCH [214]ERWENDUNG DES" 2350 SYS50088,0,112,"[208]UNKTES ODER DER [204]INIE IN [194][193][211][201][195] PRO-" 2360 SYS50088,0,120,"GRAMMIERT WERDEN. [200]AEUFIG WERDEN [203]REIS" 2370 SYS50088,0,128,"UND [210]ECHTECK BENOETIGT. [200]IERFUER GIBT" 2380 SYS50088,0,136,"ES FERTIGE [210]OUTINEN." 2390 SYS50088,0,152,"[210]ECHTECK: [211][217][211]51470,[216]1,[217]1,[216]2,[217]2" 2400 SYS50088,0,160,"[203]REIS: [211][217][211]51710,[216],[217],[210]":POKE49863,0:GOTO2250 2410 GOSUB2260:FORI=0TO3:X1=10+80*I:SYS51470,X1,8,X1+60,68:NEXT 2420 SYS50524,40,38:SYS50524,120,38 2430 Y=38:R=28:POKE49605,0:SYS51710,40,Y,R:SYS51710,120,Y,R 2440 POKE49605,1:SYS51710,200,Y,R:SYS51710,280,Y,R 2450 POKE49863,2:SYS50088,0,80,"[193]US [213]MRISSEN WIRD EINE [198]LAECHE, WENN DIE" 2460 SYS50088,0,88,"[198]UELLFUNKTION ANGEWENDET WIRD:" 2470 SYS50088,120,104,"[211][217][211]50524,[216],[217]" 2480 SYS50088,0,120,"[202]E NACH DER [198]LAECHENBESCHAFFENHEIT WIRD" 2490 SYS50088,128,136,"GEFUELLT " 2500 POKE49863,0:GOSUB2280:POKE49863,2 2510 SYS50524,171,20:SYS50524,280,30 2520 SYS50088,0,144,"ODER":SYS50088,128,152,"GELOESCHT" 2530 GOSUB2280 2540 SYS50524,11,20:SYS50524,120,30 2550 GOSUB2280:SYS51115:RETURN 2560 GOSUB2260:SYS51470,110,0,210,100 2570 SYS50774,10,10 2580 SYS50088,120,10,"[166]" 2590 SYS50774,1,1:POKE49605,0:SYS49264,180,30:POKE49605,1 2600 SYS50088,166,36,"[209]":SYS50990 2610 POKE49863,2:SYS50088,0,104,"[198]UELLEN IST NICHT UNGEFAEHRLICH." 2620 SYS50088,0,112,"[196]AS [209]UADRAT, IN DEM SICH DAS ":POKE49863,0 2630 SYS50107,"[209]-":POKE49863,2:SYS50107,"[218]EICHEN" 2640 SYS50088,0,120,"BEFINDET, SOLL GEFUELLT WERDEN, DOCH" 2650 SYS50088,0,128,"LEIDER IST DAS [209]UADRAT NICHT GANZ DICHT.":POKE49863,0 2660 GOSUB2280 2670 SYS50524,160,49 2680 POKE49863,2:SYS50088,0,144,"[196]IESES WAR [208]ECH, DOCH DER [203]LUGE HAT" 2690 SYS50088,0,152,"VORGESORGT.":GOSUB2280 2700 SYS51063:POKE49863,2 2710 SYS50088,0,104,"[215]ER ZUVOR DEN [194]ILDSCHIRMINHALT GERETTET" 2720 SYS50088,0,112,"HAT, KANN IHN WIEDER HERHOLEN." 2730 SYS50088,0,128,"[194]ILDSCHIRM RETTEN: [211][217][211]50990" 2740 SYS50088,0,136,"[194]ILDSCHIRM HOLEN: [211][217][211]51002" 2750 SYS50088,0,152,"[193]USSERDEM GIBT ES NOCH ETWAS." 2760 SYS50088,0,168,"[194]ILDSCHIRM TAUSCHEN: [211][217][211]51063" 2770 GOSUB2280:SYS51063:GOSUB2280:SYS51063:GOSUB2280 2780 FORI=1TO10:SYS51063:NEXT:SYS51115:RETURN 2790 GOSUB2260:SYS51470,40,8,160,108 2800 SYS50774,120,100:SYS49264,160,8:SYS50990 2810 POKE49634,3:SYS50774,2,2:SYS50088,48,88,"SCHRIFTPROBE":POKE49634,0 2820 FORI=0TO6STEP2:SYS51238,53248+I,170:NEXT 2830 FORI=1TO7STEP2:SYS51238,53248+I,85:NEXT:SYS50774,1,1 2840 POKE49863,4:SYS51179,0:SYS50990 2850 POKE49863,2:SYS50088,0,120,"[218]EICHEN LASSEN SICH ALS [198]UELLMUSTER" 2860 SYS50088,0,128,"VERWENDEN. [196]IE [200]ANDHABUNG IST EINFACH" 2870 SYS50088,0,136,"UND PASST NICHT NUR FUER MIT" 2880 SYS50088,0,144,"[211][217][211]50524,[216],[217] FUELLBARE [198]LAECHEN, SONDERN" 2890 SYS50088,0,152,"FUER JEDES BELIEBIGE [207]BJEKT.":GOSUB2280 2900 SYS50941:POKE49863,2:SYS50088,0,0,"[194]EVOR IRGENDWELCHE [207]BJEKTE GEFUELLT" 2910 SYS50088,0,8,"WERDEN KOENNEN, MUESSEN SIE DEFINIERT" 2920 SYS50088,0,16,"SEIN. [197]INE OERTLICHE [194]ESTIMMUNG WAERE" 2930 SYS50088,0,24,"SEHR KOMPLIZIERT. [196]AHER WURDE EINE" 2940 SYS50088,0,32,"ZEITLICHE [194]ESTIMMUNG GEWAEHLT." 2950 SYS50088,0,40,"[196]REI [211]CHRITTE SIND AUSZUFUEHREN:" 2960 SYS50088,0,56,"1. [194]ILDSCHIRM RETTEN MIT [211][217][211]50990" 2970 SYS50088,0,72,"2. [207]BJEKT(E) AUF DEN [194]ILDSCHIRM BRINGEN" 2980 SYS50088,0,88,"3. [198]UELLMUSTER ERZEUGEN MIT [211][217][211]51179,[194][195]" 2990 SYS50088,0,104,"[194][195] IST DER [194]ILDSCHIRMCODE DES ALS [198]UELL-" 3000 SYS50088,0,112,"MUSTER GEWAEHLTEN [218]EICHENS. [211][217][211]51179,[194][195]" 3010 SYS50088,0,120,"VERGLEICHT DEN GERETTETEN [194]ILDSCHIRM MIT" 3020 SYS50088,0,128,"DEM AKTUELLEN, UND TRAEGT AN DEN GEAEN-" 3030 SYS50088,0,136,"DERTEN [211]TELLEN DAS GEWAEHLTE [218]EICHEN-" 3040 SYS50088,0,144,"MUSTER EIN. [197]IN [214]ERGROESSERUNGSFAKTOR" 3050 SYS50088,0,152,"WIRD BEIM [198]UELLMUSTER NICHT WIRKSAM," 3060 SYS50088,0,160,"WOHL ABER DIE [218]EICHENDREHUNG." 3070 GOSUB2280:SYS51002:POKE49863,2 3080 SYS50088,104,120,"[198][213][197][204][204][194][197][201][211][208][201][197][204]" 3090 SYS50088,48,136,"[194]ILDSCHIRM RETTEN: [211][217][211]50990" 3100 SYS50088,48,144,"[207]BJEKTE ERZEUGEN" 3110 SYS50088,48,152,"[198]UELLMUSTER: [211][217][211]51179,102":GOTO3150 3120 B$="":FORI=1TOVX:B$=B$+" ":NEXT:POKE49863,1 3130 POKE49634,3:SYS50088,48,YY,B$:POKE49634,0:GOSUB2280:POKE49863,1 3140 POKE49634,3:SYS50088,48,YY,B$:POKE49634,0:POKE49863,0:RETURN 3150 VX=27:YY=136:GOSUB3120:SYS50990 3160 VX=16:YY=144:GOSUB3120:POKE49605,2 3170 SYS51710,100,48,30:SYS51710,220,48,30:POKE49605,1 3180 SYS50524,100,48:SYS50524,220,48 3190 VX=25:YY=152:GOSUB3120 3200 SYS51179,102:GOTO2250 3210 GOSUB2260:SYS50774,2,2:SYS50088,20,8,"BLOCKFUELLMUSTER":SYS50774,1,1 3220 POKE49863,2:SYS50088,0,104,"[196]IE [200]ANDHABUNG IST DIESELBE, WIE BEIM" 3230 SYS50088,0,112,"[218]EICHENFUELLMUSTER. [201]M [213]NTERSCHIED DAZU" 3240 SYS50088,0,120,"FINDEN NICHT EIN, SONDERN 16 [218]EICHEN" 3250 SYS50088,0,128,"[214]ERWENDUNG.":SYS50990 3260 SYS50774,100,70:SYS49264,110,27:SYS50774,1,1 3270 SYS52259,53248,53248,1024,1:SYS52259,55296,54272,1024,1:GOSUB2280:SYS51303,0 3280 POKE49863,2:SYS50088,0,152,"[196]ER [194]EFEHL LAUTET: [211][217][211]51303,[206][210]":GOSUB2280 3290 SYS50941:POKE49863,2:SYS50088,0,8,"[194]EIM [198]UELLMUSTERBEFEHL [211][217][211]51303,[206][210]" 3300 SYS50088,0,16,"KANN [206][210] [215]ERTE VON 0 BIS 31 ANNEHMEN." 3310 SYS50088,0,24,"[196]IE [206]UMMERN KENNZEICHNEN [194]LOECKE VON" 3320 SYS50088,0,32,"4X4 [194]UCHSTABEN AUS DEN DEFINIERBAREN" 3330 SYS50088,0,40,"[218]EICHENSAETZEN 4 UND 6 SOWIE DEN" 3340 SYS50088,0,48,"REVERSEN [218]EICHENSAETZEN 5 UND 7." 3350 SYS50088,0,64,"[196]IE [193]UFTEILUNG:" 3360 SYS50088,48,80,"[206]UMMERN [218]EICHENSATZ" 3370 SYS50088,40,96," 0 BIS 7 4" 3380 SYS50088,40,104," 8 BIS 15 5" 3390 SYS50088,40,112,"16 BIS 23 6" 3400 SYS50088,40,120,"24 BIS 31 7" 3410 SYS50088,0,144,"[196]IES KOENNEN [211]IE ANHAND EINER [203]OPIE DES" 3420 SYS50088,0,152,"[210][207][205]-[218]EICHENSATZES NAEHER UNTERSUCHEN.":GOSUB2280 3430 SYS50941:SYS50774,62,62:SYS49264,65,65:SYS50774,1,1 3440 SYS51710,224,96,32:SYS50524,224,96:POKE49605,0:SYS51710,224,96,32 3450 POKE49605,1:GOSUB3460:SYS50990:GOTO3540 3460 POKE49863,2:SYS50088,0,0,"[215]AEHLEN [211]IE MIT DEN [212]ASTEN " 3470 POKE49863,3:SYS50107,"+":POKE49863,2:SYS50107," UND ":POKE49863,3 3480 SYS50107,"-":POKE49863,2 3490 SYS50088,0,8,"EINE [205]USTERNUMMER AUS UND BESTAETIGEN" 3500 SYS50088,0,16,"[211]IE DANACH DIE [193]USWAHL MIT ":POKE49863,3 3510 SYS50107,"[210][197][212][213][210][206]":POKE49863,2:SYS50107,"." 3520 SYS50088,8,184,"[215]EITER MIT [204]EERTASTE":RETURN 3530 SYS50941:GOSUB3460:SYS51470,64,64,127,127:SYS51710,224,96,32:RETURN 3540 WE=0 3550 SYS50088,8,144,"[205]USTERNUMMER: "+RIGHT$(STR$(WE),2) 3560 GOSUB2300:IFA$="+"THEN3610 3570 IF A$="-"THEN3630 3580 IF A$=" "THEN3660 3590 IFA$=CHR$(13)THEN3650 3600 GOTO3560 3610 IFWE<>31THENWE=WE+1 3620 GOTO3550 3630 IFWE<>0THENWE=WE-1 3640 GOTO3550 3650 GOSUB3530:SYS51303,WE:GOTO3550 3660 SYS50941:SYS50088,0,0,"[215]ENN [211]IE SICH EINEN EIGENEN [218]EICHENSATZ" 3670 SYS50088,0,8,"ENTWERFEN, KOENNEN [211]IE IM [206]U EIN" 3680 SYS50088,0,16,"[200]AUSDACH MIT [196]ACHZIEGELN ODER EINE" 3690 SYS50088,0,24,"[215]IESE MIT [194]LUMEN UND [199]RAESERN VERSEHEN.":GOTO2250 3700 GOSUB2260:SYS50088,8,184,"BITTE WARTEN" 3710 SYS51991,8,"ZSATZ",53248,8:SYS50941 3720 Z$="ABC[193][194][195][187][188][189][190][219][220][221]":SYS50774,2,2 3730 POKE49863,6:SYS50088,60,8,"[218]EICHENS[187]TZE":POKE49863,2:SYS50774,1,1 3740 SYS50088,0,32,"[214]IER [218]EICHENSAETZE STEHEN IM [199]RAFIKMODUS" 3750 SYS50088,0,40,"ZUR [214]ERFUEGUNG, DIE ZWEI [210][207][205]-[218]EICHEN-" 3760 SYS50088,0,48,"SAETZE UND ZWEI BENUTZERDEFINIERBARE" 3770 SYS50088,0,56,"[210][193][205]-[218]EICHENSAETZE." 3780 SYS50088,0,72,"[196]IE [218]EICHENSATZWAHL ERFOLGT DURCH:" 3790 SYS50088,88,88,"[208][207][203][197]49863,[218][211]" 3800 SYS50088,0,104,"[196]IE [218]EICHENSATZNUMMER [218][211] KANN [215]ERTE" 3810 SYS50088,0,112,"VON 0 BIS 7 ANNEHMEN.":GOSUB2280:SYS50941 3820 POKE49863,2:SYS50088,0,0,"[196]IE [218]EICHENSATZNUMMERN, DIE [193]DRESSEN" 3830 SYS50088,0,8,"UND DIE [209]UELLE SAGT [201]HNEN FOLGENDE" 3840 SYS50088,0,16,"[212]ABELLE.":ZS=0:GOTO3860 3850 POKE49863,ZS:SYS50107,Z$:POKE49863,2:ZS=ZS+1:RETURN 3860 SYS50088,8,40,"[218][211] [193]DRESSEN [209]UELLE [194]EISPIEL" 3870 SYS50088,8,56,"0 53248-54271 [210][207][205] ":GOSUB3850 3880 SYS50088,8,64,"1 54272-55295 [210][207][205] ":GOSUB3850 3890 SYS50088,8,80,"2 55296-56319 [210][207][205] ":GOSUB3850 3900 SYS50088,8,88,"3 56320-57343 [210][207][205] ":GOSUB3850 3910 SYS50088,8,104,"4 53248-54271 [210][193][205] ":GOSUB3850 3920 SYS50088,8,112,"5 53248-54271 [210][193][205] ":GOSUB3850 3930 SYS50088,8,128,"6 55272-55295 [210][193][205] ":GOSUB3850 3940 SYS50088,8,136,"7 55272-55295 [210][193][205] ":GOSUB3850 3950 GOSUB2280:SYS50941:POKE49863,2 3960 SYS50088,0,0,"[198]INDET BEI [194]EFEHLEN ER [194]ILDSCHIRMCODE" 3970 SYS50088,0,8,"EINES [218]EICHENS [214]ERWENDUNG, SO BRAUCHEN" 3980 SYS50088,0,16,"[211]IE NICHT MITTELS [208][207][203][197]49863,[218][211] EINEN" 3990 SYS50088,0,24,"ANDEREN [218]EICHENSATZ WAEHLEN, WENN [211]IE" 4000 SYS50088,0,32,"DAS REVERSE [199]EGENSTUECK MOECHTEN," 4010 SYS50088,0,40,"SONDERN NUR DEN [194]ILDSCHIRMCODE UM DEN" 4020 SYS50088,0,48,"[215]ERT 128 ERHOEHEN." 4030 POKE49863,6:SYS50088,0,64,"[221]BRIGENS BEKOMMEN [211]IE, FALLS [211]IE DEN" 4040 SYS50088,0,72,"AUF DER [196]ISKETTE BEFINDLICHEN [218]EICHEN-" 4050 SYS50088,0,80,"SATZ [218][211][193][212][218] GELADEN HABEN DIE DEUTSCHEN" 4060 SYS50088,0,88,"[213]MLAUTE AUF FOLGENDEN [212]ASTEN:" 4070 SYS50088,40,104,"[187]: [195][194][205] F" 4080 SYS50088,40,112,"[188]: [195][194][205] C" 4090 SYS50088,40,120,"[189]: [195][194][205] X" 4100 SYS50088,40,128,"[190]: [195][194][205] V" 4110 SYS50088,40,136,"[219]: [211][200][201][198][212] +" 4120 SYS50088,40,144,"[220]: [195][194][205] -" 4130 SYS50088,40,152,"[221]: [211][200][201][198][212] -" 4140 POKE49863,2:SYS50088,0,168,"[214]ERGLEICHE HIERZU [205]ENUEPUNKT:" 4150 SYS50088,0,176,"[203]OPIEREN, [204]ADEN, [211]PEICHERN.":GOTO2250 4160 GOSUB2260:POKE49863,2:SYS50088,56,0,"[203]OPIEREN, [204]ADEN, [211]PEICHERN" 4170 SYS50088,0,32,"[203]OPIEREN: [211][217][211]52259,[209],[218],[193],[198]" 4180 SYS50088,0,48,"[209] = [209]UELLADRESSE" 4190 SYS50088,0,56,"[218] = [218]IELADRESSE" 4200 SYS50088,0,64,"[193] = [193]NZAHL" 4210 SYS50088,0,72,"[198] = [198]LAG (0/1 FUER [209]UELLE = [210][193][205]/[210][207][205]) 4220 [158]50088,0,88,"PEEKEISPIEL (null)(null)(null)-(null)EICHENSATZ AUF PEEKILDSCHIRM:" 4230 [158]50088,56,112,"(null)(null)(null)52259,53248,57344,4096,1":[141]2280 4240 [158]52259,53248,57344,4096,1 4250 [151]49863,2:[158]50088,0,136,"(null)IE KOENNEN AUCH DEN (null)(null)(null)/(null)EICHENSATZ ZUM" 4260 [158]50088,0,144,"(null)ATN(null)-(null)EICHENSATZ MACHEN ODER AUF DEM" 4270 [158]50088,0,152,"PEEKILDSCHIRM VALNTWORFENES ALS (null)ATN(null)-" 4280 [158]50088,0,160,"(null)EICHENSATZ DEFINIEREN.":[141]2280:[158]50941 4290 [151]49863,2:[158]50088,0,0,"PEEKEIM (null)ATN(null)-(null)EICHENSATZ GILT ES ZU BERUECK-" 4300 [158]50088,0,8,"SICHTIGEN, DASS DORT DIE REVERSEN" 4310 [158]50088,0,16,"(null)EICHEN PROGRAMMTECHNISCH ERZEUGT WERDEN" 4320 [158]50088,0,24,"UND DAHER NICHT MIT ZU ERFASSEN SIND." 4330 Z$[178][199](34) 4340 [158]50088,0,40,"(null)ADEN: (null)(null)(null)51991,CHR$ATN,"[170]Z$[170]"(null)AME"[170]Z$[170]",ATNDR,PEEKL" 4350 [158]50088,0,48,"(null)PEICHERN: (null)(null)(null)52122,CHR$ATN,"[170]Z$[170]"(null)AME,(null),(null)"[170]Z$[170]",ATNDR,PEEKL" 4360 [158]50088,8,64,"CHR$ATN = CHR$ERAETEADRESSE" 4370 [158]50088,8,72,"ATNDR = (null)ADE- ODER (null)PEICHERADRESSE" 4380 [158]50088,8,80,"PEEKL = PEEKLOCKZAHL" 4390 [158]50088,0,96,"(null)U BEACHTEN IST, DASS KEIN (null)ANAL MIT" 4400 [158]50088,0,104,"(null)UMMER 8 ODER KEIN ASCILE MIT (null)EKUNDAER-" 4410 [158]50088,0,112,"ADRESSE 8 BEIM ATNUFRUF DIESER (null)OUTINEN" 4420 [158]50088,0,120,"EROEFFNET SEIN DARF." 4430 [158]50088,0,136,"PEEKEIM (null)PEICHERN IST NICHT DIE ATNNZAHL DER" 4440 [158]50088,0,144,"PEEKYTES, SONDERN DIE PEEKLOCKZAHL, ANZUGEBEN." 4450 [158]50088,0,152,"PEEKEIM (null)ADEN HAT DIE PEEKLOCKZAHL NUR EINE" 4460 [158]50088,0,160,"EINSCHRAENKENDE ASCUNKTION UND KANN AUCH" 4470 [158]50088,0,168,"EINFACH AUF DEN (null)AXIMALWERT 255 GESETZT" 4480 [158]50088,0,176,"WERDEN." 4490 [141]2280:[158]50941:[151]49863,2 4500 [158]50088,0,96,"PEEKEISPIEL: (null)ADEN DES (null)EICHENSATZES (null)(null)ATN(null)(null)" 4510 [158]50088,0,104,"UND ANSCHLIESSENDES (null)OPIEREN AUF DEN" 4520 [158]50088,0,112,"PEEKILDSCHIRM." 4530 [158]50088,0,128,"(null)(null)(null)51991,8,"[170]Z$[170]"(null)(null)ATN(null)(null)"[170]Z$[170]",53248,8" 4540 [158]50088,0,136,"(null)(null)(null)52259,53248,57344,2048,0" 4550 [158]51991,8,"ZSATZ",53248,8 4560 [158]52259,53248,57344,2048,0 4570 [151]49863,6:[158]50088,0,152,"ASCEXPR CHR$RAFIKEN GIBT ES SPEZIELLE (null)ADE-" 4580 [158]50088,0,160,"UND (null)PEICHERROUTINEN.":[137]2250 4590 [141]2260:[158]50990:[151]49863,2:[158]50774,2,2 4600 [158]50088,0,0,"(null)ADEN UND (null)PEICHERN" 4610 [158]50774,1,1:[158]50088,112,16,"VON CHR$RAFIKEN" 4620 Z$[178][199](34):[158]50088,0,40,"(null)ADEN: (null)(null)(null)52030,CHR$ATN,"[170]Z$[170]"(null)AME"[170]Z$[170]",ASCASC,PEEKASC" 4630 [158]50088,0,48,"(null)PEICHERN: (null)(null)(null)52162,CHR$ATN,"[170]Z$[170]"(null)AME,(null),(null)"[170]Z$[170]",ASCASC,PEEKASC" 4640 [158]50088,0,64,"CHR$ATN = CHR$ERAETEADRESSE" 4650 [158]50088,0,72,"ASCASC = ASCARBFLAG (0/1 = OHNE/MIT ASCARBE) 4660 SYS50088,0,80,"[194][198] = [194]EREICHSFLAG (0/1) 4670 [158]50088,0,96,"PEEKASC=0: CHR$RAFIKBILDSCHIRM WIRD ADRESSIERT" 4680 [158]50088,0,104,"PEEKASC=1: (null)ICHERUNGSBEREICH WIRD ADRESSIERT" 4690 [158]50088,0,120,"PEEKEISPIEL: (null)ADEN EINER CHR$RAFIK UND ZEIGEN" 4700 [158]50088,0,128,"NACH (null)ASTENDRUCK." 4710 [158]50088,0,144,"10 (null)(null)(null)52030,8,"[170]Z$[170]"CHR$(null)ATNASCRIGHT$(null)"[170]Z$[170]",1,1" 4720 [158]50088,0,152,"20 GETA$:IFA$="[170]Z$[170]Z$[170]"THEN 20" 4730 [158]50088,0,160,"30 (null)(null)(null)51002" 4740 [158]52030,8,"GRAFIK",1,1:[141]2280:[158]51002:[137]2250 4750 [141]2260:[151]49863,2:[158]50088,64,0,"ASCARBE KOMMT INS (null)PIEL" 4760 [158]50088,0,16,"(null)IT (null)(null)(null)50906,(null)ASC,LEFT$ASC KANN DIE (null)ORDER-" 4770 [158]50088,0,24,"UND LEFT$INTERGRUNDFARBE FUER DEN GESAMTEN" 4780 [158]50088,0,32,"PEEKILDSCHIRM GESETZT WERDEN." 4790 [158]50088,96,48,"LEFT$RIGHT$(null)(null)VAL(null)CHR$(null)(null)(null)STR$ASCATN(null)PEEKVAL" 4800 [151]49154,3:[129]I[178]0[164]15:[158]50906,1,I:[158]50873,1,0:[141]2280:[130] 4810 [158]50906,1,0:[158]50088,96,56,"VORDERGRUNDFARBE":[141]2280 4820 [129]I[178]0[164]15:[158]50906,I,0:[158]50873,1,0:[141]2280:[130]:[137]4890 4830 [151]49863,2:[158]51002 4840 [158]50088,152,48,"(null)(null)(null)VAL49154,"[170][199](FA[170]48) 4850 [151]49154,FA 4860 [158]50906,1,0:[151]49863,0:[129]J[178]0[164]15:[158]50088,152,J[172]8[170]64,"" 4870 [129]I[178]0[164]15:[158]50873,I,J:[158]50107,"(null)":[130]:[130]:[151]49154,0:[158]50873,1,0 4880 [137]2280 4890 [158]50906,1,0:[151]49863,2 4900 [158]50088,0,72,"VALINE VON DER CHR$LOBALEINSTELLUNG" 4910 [158]50088,0,80,"ABWEICHENDE ASCARBE KANN AUCH BEIM (null)ETZEN" 4920 [158]50088,0,88,"VON (null)UNKTEN ODER DER (null)EXTAUSGABE IN DER" 4930 [158]50088,0,96,"NAEHEREN (null)MGEBUNG DES GESETZTEN (null)UNKTES" 4940 [158]50088,0,104,"WIRKSAM WERDEN." 4950 [158]50088,0,120,"STR$IE ASCARBWAHL GESCHIEHT HIER MIT:" 4960 [158]50088,96,136,"(null)(null)(null)50873,(null)ASC,LEFT$ASC" 4970 [141]2280:[151]49863,2:[158]50941 4980 [158]50088,0,0,"STR$IE GEWAEHLTE ASCARBKOMBINATION WIRD NICHT" 4990 [158]50088,0,8,"IMMER WIRKSAM, SONDERN NUR, WENN DIESES" 5000 [158]50088,0,16,"AUCH GEWUENSCHT WIRD. LEFT$IERZU GIBT ES DAS" 5010 [158]50088,0,24,"ASCARBATTRIBUT, WELCHES GAENDERT WIRD MIT:" 5020 [158]50088,96,40,"(null)(null)(null)VAL49154,ASCATN" 5030 [158]50088,0,56,"MID$E NACH ASCARBATTRIBUT WIRD DIE ASCARBE" 5040 [158]50088,0,64,"NICHT, NUR DIE (null)ORDERGRUNDFARBE, NUR" 5050 [158]50088,0,72,"DIE LEFT$INTERGRUNDFARBE, ODER SOWOHL" 5060 [158]50088,0,80,"(null)ORDER- SOWIE LEFT$INTERGRUNDFARBE WIRKSAM." 5070 [158]50088,8,96,"ASCARBATTRIBUT UND WIRKSAME ASCARBEN:" 5080 [158]50088,104,112,"ASCATN=0: -- --" 5090 [158]50088,104,120,"ASCATN=1: (null)ASC --" 5100 [158]50088,104,128,"ASCATN=2: -- LEFT$ASC" 5110 [158]50088,104,136,"ASCATN=3: (null)ASC LEFT$ASC" 5120 [141]2280:[158]50941:[151]49863,2 5130 [158]50774,2,2:[158]50088,64,0,"ASCARBBEISPIEL":[158]50774,1,1 5140 [158]50088,0,24,"(null)(null)(null)VAL49154,ASCATN ENTSCHEIDET UEBER DAS ZUM" 5150 [158]50088,0,32,"(null)UGE KOMMEN DER DURCH (null)(null)(null)50873,(null)ASC,LEFT$ASC" 5160 [158]50088,0,40,"GESETZTEN ASCARBEN:" 5170 [158]51470,151,63,280,192 5180 [158]50990:[129]FA[178]0[164]3:[141]4830:[130] 5190 [141]2260 5200 [151]49863,2:[158]50088,0,0,"STR$IE (null)ERWENDUNG UNTERSCHIEDLICHER ASCARBEN" 5210 [158]50088,0,8,"IST ETWAS PROBLEMATISCH, DA DIE ASCARBE" 5220 [158]50088,0,16,"NICHT NUR FUER EINEN EINZELNEN (null)UNKT," 5230 [158]50088,0,24,"SONDERN FUER EINE (null)ATRIX AUS 8 MAL 8" 5240 [158]50088,0,32,"(null)UNKTEN GILT. STR$A KANN ES LEICHT ZU" 5250 [158]50088,0,40,"(null)EBERSCHNEIDUNGEN KOMMEN." 5260 [158]50873,7,6:[151]49154,1:[158]50774,2,2:[158]51710,130,120,60 5270 [158]50873,10,6:[151]49154,3:[158]51710,190,120,60:[158]50873,1,0:[151]49154,0 5280 [158]50774,1,1:[141]2280 5290 [141]2260:[151]49863,2:[158]50088,0,0,"ATNUCH NACH DER ASCERTIGSTELLUNG EINER" 5300 [158]50088,0,8,"CHR$RAFIK KANN DIESE NOCH EINGEFAERBT" 5310 [158]50088,0,16,"WERDEN. (null)(null)(null)51075,(null),(null) SETZT NUR DIE" 5320 [158]50088,0,24,"ASCARBINFORMATION, OHNE EINEN (null)UNKT" 5330 [158]50088,0,32,"AUSZUGEBEN.":[141]2280 5340 [158]50873,7,6:[151]49154,3:[129]X[178]64[164]152[169]8:[158]51075,X,16:[130] 5350 [151]49154,0:[137]2250 5360 [151]49863,0:[137]2250 5370 [153]" 5380 PRINTCHR$(147):PRINTTAB(10)"SUPERGRAPHIC INFO" 5390 PRINT:PRINT 5400 PRINT" A = GRAFIK EIN/AUS, FARBE, LOESCHEN" 5410 PRINT" B = TEXTAUSGABE" 5420 PRINT" C = VERGROESSERUNG" 5430 PRINT" D = ZEICHENDREHUNG, SCHRIFTRICHTUNG" 5440 PRINT" E = TEXTATTRIBUT" 5450 PRINT" F = PUNKTAUSGABE, SETZATTRIBUT" 5460 PRINT" G = LINIEN" 5470 PRINT" H = FIGUREN: KREIS, RECHTECK" 5480 PRINT" I = FLAECHEN FUELLEN, LEEREN" 5490 PRINT" J = BILDSCHIRM RETTEN, HOLEN, WECHSELN" 5500 PRINT" K = ZEICHENFUELLMUSTER" 5510 PRINT" L = BLOCKFUELLMUSTER" 5520 PRINT" M = ZEICHENSAETZE" 5530 PRINT" N = KOPIEREN, LADEN, SPEICHERN" 5540 PRINT" O = GRAFIK LADEN/SPEICHERN" 5550 PRINT" P = FARBE" 5560 PRINT" Q = ENDE" 5570 PRINT:PRINT"TREFFEN SIE IHRE WAHL!" 5580 GOSUB2300:IFA$<"A"ORA$>"Q"THEN5580 5590 A=ASC(A$)-64 5600 IFA>13THEN5630 5610 ONAGOSUB90,510,710,970,1390,1820,2090,2320,2410,2560,2790,3210,3700 5620 GOTO5380 5630 ONA-13GOSUB4160,4590,4750,5650 5640 GOTO5380 5650 END 5660 REM ===PROGRAMMENDE===============